﻿Public Class UpdateFile
    Private mItems As Dictionary(Of Integer, UpdateFileItem)
    Public ReadOnly Property FileIDExists(FileID As Integer) As Boolean
        Get
            Return mItems.ContainsKey(FileID)
        End Get
    End Property
    Public ReadOnly Property UpdateFileList As Dictionary(Of Integer, UpdateFileItem)
        Get
            Return mItems
        End Get
    End Property
    Sub New()
        mItems = New Dictionary(Of Integer, UpdateFileItem)
    End Sub
    Sub Add(FileID As Integer, Data As UpdateFileItem)
        mItems.Add(FileID, Data)
    End Sub
End Class
